home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / News Stack™ 1.1.cpt / News Stack™ 1.1 / News Stack 1.1a2 / background_2777.txt < prev    next >
Text File  |  1987-09-04  |  14KB  |  638 lines
  1. -- background: 2777 from stack: in.1a2
  2. -- bmap block id: 204985
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: News Stack Control
  6. ----- HyperTalk script -----
  7. on fidoCheck
  8.   global newMessage
  9.   global ignoreLine
  10.   global fileLine
  11.   if (char 1 of fileLine = "#") then
  12.     put "n" into ignoreLine
  13.     put "y" into newMessage
  14.   else
  15.     put "n" into newMessage
  16.     if (char 1 to 4 of fileLine) = "SEEN" then
  17.       put "y" into ignoreLine
  18.     else if (char 1 to 8 of fileLine) = "Read Com" then
  19.       put "y" into ignoreLine
  20.     else if (char 1 of fileLine) = "[" then
  21.       put "y" into ignoreLine
  22.     else if (char 1 to 5 of fileLine) = "More?" then
  23.       put "y" into ignoreLine
  24.     else if (char 2 to 4 of fileLine) = "EID" then
  25.       put "y" into ignoreLine
  26.     else if (char 2 to 5 of fileLine) = "PATH" then
  27.       put "y" into ignoreLine
  28.     else
  29.       put "n" into ignoreLine
  30.     end if
  31.   end if
  32. end fidoCheck
  33.  
  34. on opusCheck
  35.   global newMessage
  36.   global ignoreLine
  37.   global fileLine
  38.   if (char 1 to 4 of fileLine) = "From" then
  39.     put "n" into ignoreLine
  40.     put "y" into newMessage
  41.   else
  42.     put "n" into newMessage
  43.     if (char 1 to 4 of fileLine) = "SEEN" then
  44.       put "y" into ignoreLine
  45.     else
  46.       put "n" into ignoreLine
  47.     end if
  48.   end if
  49. end opusCheck
  50.  
  51. on genieCheck
  52.   global newMessage
  53.   global ignoreLine
  54.   global fileLine
  55.   if (char 1 to 10 of fileLine = "----------") then
  56.   put "y" into ignoreLine
  57.   put "y" into newMessage
  58. else if (char 1 to 10 of fileLine = "**********") then
  59.   put "y" into newMessage
  60.   put "y" into ignoreLine
  61. else
  62.   put "n" into newMessage
  63.   put "n" into ignoreLine
  64. end if
  65. end genieCheck
  66.  
  67. on usenetCheck
  68.   global newMessage
  69.   global ignoreLine
  70.   global fileLine
  71.   if (char 1 to 5 of fileLine = "Topic") then
  72.     put "y" into newMessage
  73.   else
  74.     put "n" into newMessage
  75.   end if
  76.   if (char 1 to 5 of fileLine = "--Mor") then
  77.   put "y" into ignoreLine
  78. else
  79.   put "n" into ignoreLine
  80. end if
  81. end usenetCheck
  82.  
  83. on maugCheck
  84.   global newMessage
  85.   global fileLine
  86.   if (char 1 to 2 of fileLine = "#:") then
  87.     put "y" into newMessage
  88.   else
  89.     put "n" into newMessage
  90.   end if
  91. end maugCheck
  92.  
  93. on delphiCheck
  94.   global newMessage
  95.   global ignoreLine
  96.   global fileLine
  97.   global fileStr
  98.   if (char 1 to 3 of fileLine = "-*-") then
  99.     read from file fileStr until return
  100.     put "y" into newMessage
  101.     put "y" into ignoreLine
  102.   else if (char 1 to 6 of fileLine = "FORUM>") then
  103.     put "y" into newMessage
  104.     put "y" into ignoreLine
  105.   else if (char 1 to 30 of fileLine = "------------------------------")  then
  106.   put "y" into newMessage
  107.   put "y" into ignoreLine
  108. else
  109.   put "n" into newMessage
  110.   put "n" into ignoreLine
  111. end if
  112. end delphiCheck
  113.  
  114. on readArticles
  115.   global ignoreLine
  116.   global fileLine
  117.   global fileStr
  118.   global fileEof
  119.   global newMessage
  120.   global whatOn
  121.   put "n" into ignoreLine
  122.   put FileName("TEXT") into fileStr
  123.   if fileStr is empty then exit readArticles
  124.   open file fileStr
  125.   go first card
  126.   set lockscreen to true
  127.   set cursor to 4
  128.   go last card
  129.   put "n" into fileEof
  130.   put "y" into firstNew
  131.   put empty into mainStr
  132.   domenu "New Card"
  133.   put "Scanning for first message‚Ķ" into message
  134.   put 0 into num
  135.   if whatOn = "other" then
  136.     push card
  137.     go card 1
  138.     put field "other" into source
  139.     go card 3
  140.     put " " into it
  141.     repeat until it is empty
  142.       domenu "new card"
  143.       read from file fileStr until formFeed
  144.       put empty into last character of it
  145.       put it into field main
  146.       put source into field "source"
  147.       put (1 + num) into num
  148.       put "New Cards Created = "&num into message
  149.     end repeat
  150.     domenu "delete card"
  151.   else
  152.     repeat until fileEof = "y"
  153.       read from file fileStr until return
  154.       put it into fileLine
  155.       if fileLine is empty then
  156.         put "y" into fileEof
  157.       end if
  158.       put whatOn & "Check" into it
  159.       do it
  160.       if newMessage = "y" then
  161.         put (1 + num) into num
  162.         put "New Cards Created = "&num into message
  163.         put whatOn into field source
  164.         put the date into field date
  165.         if firstNew = "n" then
  166.           put mainStr into field main
  167.           domenu "new card"
  168.           put empty into mainStr
  169.         else
  170.           put empty into mainStr
  171.           put "n" into firstNew
  172.         end if
  173.       end if
  174.       if ignoreLine = "n" then put fileLine after mainStr
  175.     end repeat
  176.     put mainStr into field main
  177.     put empty into mainStr
  178.   end if
  179.   close file fileStr
  180.   go first card
  181.   put "All done" into message
  182.   beep
  183. end readArticles
  184.  
  185. on unavailable
  186.   set visible of card field "unavailable" to true
  187.   set visible of card button "ok" to true
  188.   beep
  189. end unavailable
  190.  
  191.  
  192.  
  193.  
  194. -- part 1 (button)
  195. -- low flags: 00
  196. -- high flags: 2000
  197. -- rect: left=72 top=32 right=67 bottom=108
  198. -- title width / last selected line: 0
  199. -- icon id / first selected line: 14767 / 14767
  200. -- text alignment: 1
  201. -- font id: 0
  202. -- text size: 12
  203. -- style flags: 0
  204. -- line height: 16
  205. -- part name: About News Stack…
  206. ----- HyperTalk script -----
  207. on mouseUp
  208.   doHelp
  209. end mouseUp
  210.  
  211.  
  212.  
  213. -- part 2 (button)
  214. -- low flags: 00
  215. -- high flags: A004
  216. -- rect: left=180 top=92 right=124 bottom=320
  217. -- title width / last selected line: 0
  218. -- icon id / first selected line: 0 / 0
  219. -- text alignment: 1
  220. -- font id: 0
  221. -- text size: 12
  222. -- style flags: 0
  223. -- line height: 16
  224. -- part name: View Articles
  225. ----- HyperTalk script -----
  226. on mouseUp
  227.   addOff
  228.   deleteOff
  229.   push card
  230.   domenu "Find..."
  231.   go third card
  232. end mouseUp
  233.  
  234.  
  235.  
  236. -- part 3 (button)
  237. -- low flags: 00
  238. -- high flags: A004
  239. -- rect: left=180 top=128 right=160 bottom=320
  240. -- title width / last selected line: 0
  241. -- icon id / first selected line: 0 / 0
  242. -- text alignment: 1
  243. -- font id: 0
  244. -- text size: 12
  245. -- style flags: 0
  246. -- line height: 16
  247. -- part name: Add Articles
  248. ----- HyperTalk script -----
  249. on mouseUp
  250.   global addOn
  251.   if addOn <> "y" then
  252.     displayAdd
  253.   else
  254.     readArticles
  255.   end if
  256. end mouseUp
  257.  
  258.  
  259.  
  260. -- part 6 (button)
  261. -- low flags: 00
  262. -- high flags: A004
  263. -- rect: left=180 top=164 right=196 bottom=320
  264. -- title width / last selected line: 0
  265. -- icon id / first selected line: 0 / 0
  266. -- text alignment: 1
  267. -- font id: 0
  268. -- text size: 12
  269. -- style flags: 0
  270. -- line height: 16
  271. -- part name: Delete Articles
  272. ----- HyperTalk script -----
  273. on mouseUp
  274.   addOff
  275.   viewOff
  276.   deleteDate
  277. end mouseUp
  278.  
  279.  
  280.  
  281. -- part 10 (button)
  282. -- low flags: 00
  283. -- high flags: 0000
  284. -- rect: left=397 top=30 right=69 bottom=438
  285. -- title width / last selected line: 0
  286. -- icon id / first selected line: 20098 / 20098
  287. -- text alignment: 1
  288. -- font id: 0
  289. -- text size: 12
  290. -- style flags: 0
  291. -- line height: 16
  292. -- part name: Home
  293. ----- HyperTalk script -----
  294. on mouseUp
  295.   visual effect iris open
  296.   go Home
  297. end mouseUp
  298.  
  299.  
  300.  
  301. -- part 11 (field)
  302. -- low flags: 80
  303. -- high flags: 0004
  304. -- rect: left=6 top=85 right=275 bottom=137
  305. -- title width / last selected line: 0
  306. -- icon id / first selected line: 0 / 0
  307. -- text alignment: 1
  308. -- font id: 0
  309. -- text size: 12
  310. -- style flags: 0
  311. -- line height: 16
  312. -- part name: Services
  313.  
  314.  
  315. -- part 12 (field)
  316. -- low flags: 80
  317. -- high flags: 0002
  318. -- rect: left=8 top=250 right=268 bottom=132
  319. -- title width / last selected line: 0
  320. -- icon id / first selected line: 0 / 0
  321. -- text alignment: 0
  322. -- font id: 0
  323. -- text size: 12
  324. -- style flags: 0
  325. -- line height: 16
  326. -- part name: other
  327.  
  328.  
  329. -- part 13 (button)
  330. -- low flags: 80
  331. -- high flags: C006
  332. -- rect: left=13 top=101 right=123 bottom=131
  333. -- title width / last selected line: 0
  334. -- icon id / first selected line: 0 / 0
  335. -- text alignment: 1
  336. -- font id: 0
  337. -- text size: 12
  338. -- style flags: 0
  339. -- line height: 16
  340. -- part name: Fido
  341. ----- HyperTalk script -----
  342. on mouseUp
  343.   global fidoOn
  344.   global whatOn
  345.   set lockscreen to true
  346.   set visible of card button "Ok" to false
  347.   set visible of card field "unavailable" to false
  348.   if fidoOn <> "y" then
  349.     put whatOn & "Off" into it
  350.     do it
  351.     set hilite of bkgnd button fido to true
  352.     put "y" into fidoOn
  353.     put "fido" into whatOn
  354.   end if
  355. end mouseUp
  356.  
  357.  
  358.  
  359. -- part 14 (button)
  360. -- low flags: 80
  361. -- high flags: 8006
  362. -- rect: left=13 top=122 right=144 bottom=131
  363. -- title width / last selected line: 0
  364. -- icon id / first selected line: 0 / 0
  365. -- text alignment: 1
  366. -- font id: 0
  367. -- text size: 12
  368. -- style flags: 0
  369. -- line height: 16
  370. -- part name: Opus
  371. ----- HyperTalk script -----
  372. on mouseUp
  373.   global opusOn
  374.   global whatOn
  375.   set lockscreen to true
  376.   set visible of card button "Ok" to false
  377.   set visible of card field "unavailable" to false
  378.   if opusOn <> "y" then
  379.     put whatOn & "Off" into it
  380.     do it
  381.     set hilite of bkgnd button opus to true
  382.     put "y" into opusOn
  383.     put "opus" into whatOn
  384.   end if
  385. end mouseUp
  386.  
  387.  
  388.  
  389. -- part 15 (button)
  390. -- low flags: 80
  391. -- high flags: 8006
  392. -- rect: left=13 top=143 right=165 bottom=131
  393. -- title width / last selected line: 0
  394. -- icon id / first selected line: 0 / 0
  395. -- text alignment: 1
  396. -- font id: 0
  397. -- text size: 12
  398. -- style flags: 0
  399. -- line height: 16
  400. -- part name: CompuServe
  401. ----- HyperTalk script -----
  402. on mouseUp
  403.   global maugOn
  404.   global whatOn
  405.   set lockscreen to true
  406.   set visible of card button "Ok" to false
  407.   set visible of card field "unavailable" to false
  408.   if maugOn <> "y" then
  409.     put whatOn & "Off" into it
  410.     do it
  411.     set hilite of bkgnd button compuserve to true
  412.     put "y" into maugOn
  413.     put "maug" into whatOn
  414.   end if
  415. end mouseUp
  416.  
  417.  
  418.  
  419. -- part 16 (button)
  420. -- low flags: 80
  421. -- high flags: 8006
  422. -- rect: left=13 top=164 right=186 bottom=131
  423. -- title width / last selected line: 0
  424. -- icon id / first selected line: 0 / 0
  425. -- text alignment: 1
  426. -- font id: 0
  427. -- text size: 12
  428. -- style flags: 0
  429. -- line height: 16
  430. -- part name: Delphi
  431. ----- HyperTalk script -----
  432. on mouseUp
  433.   global delphiOn
  434.   global whatOn
  435.   set lockscreen to true
  436.   set visible of card button "Ok" to false
  437.   set visible of card field "unavailable" to false
  438.   if delphiOn <> "y" then
  439.     put whatOn & "Off" into it
  440.     do it
  441.     set hilite of bkgnd button delphi to true
  442.     put "y" into delphiOn
  443.     put "delphi" into whatOn
  444.   end if
  445. end mouseUp
  446.  
  447.  
  448.  
  449. -- part 17 (button)
  450. -- low flags: 80
  451. -- high flags: 8006
  452. -- rect: left=13 top=185 right=207 bottom=131
  453. -- title width / last selected line: 0
  454. -- icon id / first selected line: 0 / 0
  455. -- text alignment: 1
  456. -- font id: 0
  457. -- text size: 12
  458. -- style flags: 0
  459. -- line height: 16
  460. -- part name: PicoSpan
  461. ----- HyperTalk script -----
  462. on mouseUp
  463.   global usenetOn
  464.   global whatOn
  465.   set lockscreen to true
  466.   set visible of card button "Ok" to false
  467.   set visible of card field "unavailable" to false
  468.   if usenetOn <> "y" then
  469.     put whatOn & "Off" into it
  470.     do it
  471.     set hilite of bkgnd button PicoSpan to true
  472.     put "y" into usenetOn
  473.     put "usenet" into whatOn
  474.   end if
  475. end mouseUp
  476.  
  477.  
  478.  
  479. -- part 18 (button)
  480. -- low flags: 80
  481. -- high flags: 8006
  482. -- rect: left=13 top=206 right=228 bottom=131
  483. -- title width / last selected line: 0
  484. -- icon id / first selected line: 0 / 0
  485. -- text alignment: 1
  486. -- font id: 0
  487. -- text size: 12
  488. -- style flags: 0
  489. -- line height: 16
  490. -- part name: Genie
  491. ----- HyperTalk script -----
  492. on mouseUp
  493.   global genieOn
  494.   global whatOn
  495.   set lockscreen to true
  496.   set visible of card button "Ok" to false
  497.   set visible of card field "unavailable" to false
  498.   if genieOn <> "y" then
  499.     put whatOn & "Off" into it
  500.     do it
  501.     set hilite of bkgnd button genie to true
  502.     put "y" into genieOn
  503.     put "genie" into whatOn
  504.   end if
  505. end mouseUp
  506.  
  507.  
  508.  
  509. -- part 19 (button)
  510. -- low flags: 80
  511. -- high flags: 8006
  512. -- rect: left=13 top=227 right=249 bottom=131
  513. -- title width / last selected line: 0
  514. -- icon id / first selected line: 0 / 0
  515. -- text alignment: 1
  516. -- font id: 0
  517. -- text size: 12
  518. -- style flags: 0
  519. -- line height: 16
  520. -- part name: Other
  521. ----- HyperTalk script -----
  522. on mouseUp
  523.   global otherOn
  524.   global whatOn
  525.   set lockscreen to true
  526.   set visible of card button "Ok" to false
  527.   set visible of card field "unavailable" to false
  528.   if otherOn <> "y" then
  529.     put whatOn & "Off" into it
  530.     do it
  531.     set hilite of bkgnd button other to true
  532.     set visible of bkgnd field other to true
  533.     put "y" into otherOn
  534.     put "other" into whatOn
  535.   end if
  536. end mouseUp
  537.  
  538.  
  539.  
  540. -- part 27 (button)
  541. -- low flags: 00
  542. -- high flags: A004
  543. -- rect: left=180 top=200 right=232 bottom=320
  544. -- title width / last selected line: 0
  545. -- icon id / first selected line: 0 / 0
  546. -- text alignment: 1
  547. -- font id: 0
  548. -- text size: 12
  549. -- style flags: 0
  550. -- line height: 16
  551. -- part name: Edit Clippings
  552. ----- HyperTalk script -----
  553. on mouseUp
  554.   addOff
  555.   viewOff
  556.   go to next card
  557. end mouseUp
  558.  
  559.  
  560.  
  561. -- part 28 (button)
  562. -- low flags: 00
  563. -- high flags: 0000
  564. -- rect: left=466 top=271 right=288 bottom=494
  565. -- title width / last selected line: 0
  566. -- icon id / first selected line: 6720 / 6720
  567. -- text alignment: 1
  568. -- font id: 0
  569. -- text size: 12
  570. -- style flags: 0
  571. -- line height: 16
  572. -- part name: Return
  573. ----- HyperTalk script -----
  574. on mouseUp
  575.   visual effect iris close
  576.   pop card
  577. end mouseUp
  578.  
  579.  
  580.  
  581. -- part 29 (button)
  582. -- low flags: 00
  583. -- high flags: 0000
  584. -- rect: left=440 top=271 right=288 bottom=464
  585. -- title width / last selected line: 0
  586. -- icon id / first selected line: 16560 / 16560
  587. -- text alignment: 1
  588. -- font id: 0
  589. -- text size: 12
  590. -- style flags: 0
  591. -- line height: 16
  592. -- part name: Next
  593. ----- HyperTalk script -----
  594. on mouseUp
  595.   visual effect wipe left
  596.   go to next card
  597. end mouseUp
  598.  
  599.  
  600.  
  601. -- part 30 (button)
  602. -- low flags: 00
  603. -- high flags: 0000
  604. -- rect: left=411 top=271 right=288 bottom=439
  605. -- title width / last selected line: 0
  606. -- icon id / first selected line: 15420 / 15420
  607. -- text alignment: 1
  608. -- font id: 0
  609. -- text size: 12
  610. -- style flags: 0
  611. -- line height: 16
  612. -- part name: Prev
  613. ----- HyperTalk script -----
  614. on mouseUp
  615.   visual effect wipe right
  616.   go to previous card
  617. end mouseUp
  618.  
  619.  
  620.  
  621. -- part 31 (button)
  622. -- low flags: 00
  623. -- high flags: A004
  624. -- rect: left=180 top=236 right=268 bottom=320
  625. -- title width / last selected line: 0
  626. -- icon id / first selected line: 0 / 0
  627. -- text alignment: 1
  628. -- font id: 0
  629. -- text size: 12
  630. -- style flags: 0
  631. -- line height: 16
  632. -- part name: Clone Stack
  633. ----- HyperTalk script -----
  634. on mouseUp
  635.   cloneStack
  636. end mouseUp
  637.  
  638.